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MEMORY MANAGEMENT SERVICES TEST #8 


-TITLE MM yer $3 - TEST MMG SERVICES WITH LOW WSQUOTA/WSLIMIT 
IDENT ‘Vv04-0 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gorace 
ONLY IN ACCORDANCE by: THE TERMS OF SUCH LICENSE AND WITH THE 


e ® 
w ® 
® ® 
® ® 
* ® 
aa ® 
& ® 
® ® 
w * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. : 
¥ ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE  * 

® 
* cm 
® ® 
® ® 
ir ® 
® ® 
® te 
-* ® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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0000 PARRA RAAASAARAAALALAAALALAALAESLALASA SELES EER AREER SESE RE ER ER RAEE ELL EELE ESAS S & 

0000 3+ 

4444 : FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 

444 ; ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 

9009 ; ENVIRONMENT: USER MODE DIAGNOSTIC 

9000 : AUTHOR: PETER H. LIPMAN , CREATION DATE: 6-JAN-77 

0900 ; MODIFIED BY: 

0000 ; v02-012 $HZ0006 Stephen Zalewski 20-Aug-1980 

0000 3 dded further tests to system services tested in this 

O08 3 a ram. Also incorporated program into MMG test 

4 ; package. | 

09 : v02-012 T$C0008 Tom Clark 25-Jul-1980 | 
48 ; ddec further tests to system services tested in this 

900 49 ; naw, 

000 50 ; | 
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yen 800 DECLARATIONS eet EL MMGTST.SRCJMMGNSFWSL.MAR; 1 
: : .SBTTL DECLARATIONS 
4 ; INCLUDE FILES: 
: : .SBTTL MACROS 
: ; MACROS: 
60 * MACRO LIST 
09 61 “LIST EB 
4! $6 -ENDM LIST 
tits 64 MACRO NLIST 
444 65 -NLIST MEB 
0000 66 ENDM NLIST 
4" 6 
000 68 .MACRO READ S1Z=#1,ADR=(R2),7L1,?L2 
000 § IFNORD "possi a 
4 0 eB L 
0 0 71 U1: MOVAL W*READERR,R1 
000 te BSBW PROBERR 
000 73 L2: 
900 rs .ENDM = READ 
000 7 .MACRO WRITE S$1Z=#1,ADR=(R2),?L1,?L2 
44 7 IFNOWRT <SIZ>,<ADR>,L1 
00 78 BRB L 
9009 79 11: MOVAL W*WRITERR,R1 
00 80 BSBW  PROBERR 
000 H L2: 
4 -ENDM WRITE 
000 .MACRO NOREAD $12=#1,ADR=(R2),?L1 


MOVAL W*NOREADERR.R1 
BSBW  PROBERR 


-ENDM NOREAD 


Li: 


Cooooo 
oo 
oo 
oo 
‘Co C9 C9 Cd Co CD CD 


° 
Soo 
SSSssss 


4 
3 iFNORD <$12>,<ADR>,L1 
? 
8 
9 


90 
91 .MACRO NOWRITE S$1Z=#1,ADR=(R2),?L1 
6 IFNOWRT <SiZ>,<ADR>,L1 
9 MOVAL WNOWRITERR.R1 
0 4 e BSBW  PROBERR 
$6 ; .ENDM  NOWRITE 
98 MACRO ADJWSL PAGCNT,LIMIT=#0,WSETLM, STATUS=S“#SS$_NORMAL 
° 100 MOVZWL STATUS,R3 
0 101 MOVL  PAGCNT_R4 
1 3 MOVL  LIMIT,RS 
0 1 IF B,WSETLM 
104 “IF DIF ,<LIMIT>,<#0> 
5 ROVAL W*WRKSETLIM.R6 
1 5 CLRL RO 
108 ENDC 
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MACROS 


ws CHEE BEATA 


AX/VM 


$ Macro V04-00 
ST.SRCJMMGNSFWSL.MAR; 1 


MMGTST 


109 FF 

1 p MOVAL WSETLM,R6 

11 .ENDC 

118 BSBW ADJWSLSUBR 

11 NLIST 

116 .ENDM = ADJ WSL 

116 -MACRO CNTREG PAGCNT,REGION=#0,STATUS=S“#SS$_NORMAL ,- 
11 RETADR=W*RETRANGE 

118 LIST 

1 MOVZWL STATUS,R3 

1 : OVL PAGCNT.R4 

1 MOVAL RETADR.R1 

1 : IF 1DN, <REGION>, <#0> 

1 CLRL RS 

124 cIFF 

125 VL —- REGION, RS 

1 : .ENDC 

1 SBW  CNTREGSUBR 

128 NLIST 

; .ENDM = CNTREG 

131 .MACRO CRETVA STARTVA, ENDVA, STATUS=S°#SS$_NORMAL, - 
: ; + cae INADR=W* INRANGE , RE TADR=W*RE TRANGE 
134 IF NB, STARTVA 

135 MOVL § STARTVA, W* INRANGE 

1 : .ENDC 

1 vIF NB, ENDVA 

138 MOVL = ENDVA, W* INRANGE +4 

139 .ENDC 

140 MOVZWL STATUS,R3 

141 OVAL INADR,RO 

148 MOVAL RETADR,R1 

14 SBW ss CRETVASUBR 

144 NLIST 

145 .ENDM = CRETVA 

123 «MACRO DELTVA STARTVA,ENDVA, STATUS=S“#SS$_NORMAL = 
148 a INADR=W* INRANGE , RE TADR=W*RE T RANGE 
130 IF NB, STARTVA 

1 MOVE STARTVA, W* INRANGE 

1 5 “IF NB, ENDVA 

154 VL ENDVA, W* INRANGE +4 

155 .ENDC 

1 2 MOVZWL STATUS,R3 

1 VAL INADR,RO 

1 8 MOVAL RETADR,R1 

15 BSBY  DELTVASUBR 

160 NLIST 

161 .ENDM = DELTVA 

188 .MACRO EXPREG PAGCNT.REGION=#0,STATUS=S*#SS$_NORMAL ,- 
164 saad RE TADR=W*RE TRANGE 


me ds 


| 
— 


MACRO ULWSET STARTVA,ENDVA,STATUS=S°#SS$_WASSET,=- 
INADR=W* INRANGE , RE TADR=W*RETRANGE 


SSsssoooooees 
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yoeeb00 MACROS gr st b= 18 4 84:98:93 ERMGTST. SRE IMMONSFUSL MAR: 1 . (3) 
MOVZWL STATUS,R3 
MOVL  PAGCNT.RG 
MOVAL RETADR.RI 
IF LDN, <REGION>, <#0> 
i” 
MOVL REGION,RS 
.ENDC 
BSBW EXPREGSUBR 
NLIST 
.ENDM = EXPREG 
«MACRO LKWSET STARTVA,ENDVA, STATUS=S°#SS$_WASCLR, - 
09 ese INADR=W* INRANGE , RE TADR=W*RETRANGE 
0 IF NB, STARTVA 
0 VL. STARTVA, W* INRANGE 
0 .ENDC 
0 "IF NB, ENDVA 
99 MOVE ENDVA,W* INRANGE +4 
909 MOVZWL STATUS,R3 
0 MOVAL _INADR,RO 
000 MOVAL RETADR,R1 
000 BSBW LKWSETSUBR 
000 NLIST 
909 .ENDM = LKWSET 
00 
000 
$0 
0 LIST 
00 IF NB, STARTVA 
09 MOVL § STARTVA,W* INRANGE 
0 .ENDC 
90 “IF NB, ENDVA 
MOVL —_ ENDVA, W* INRANGE +4 
000 .ENDC 
MOVZWL STATUS,R3 
MOVAL INADR,RO 
MOVAL RETADR,R1 
BSBW  ULWSETSUBR 
NLIST 


-ENDM = ULWSET 
~MACRO RANGECHK ONOROFF 
LIST 


IF IDN <ONOROFF>,<OFF> 
BICL #CTLSM_RNGCHK ,W*CTLFLG 


BISL #CTLSM_RNGCHK ,W*CTLFLG 


-ENDM = RANGECHK 


RIN 9 $$ “DOOD OOOOOO OOOO OO OOO O00 0900 0909 09 09 09 0909 SI NIN SINE 


PRO ODA NE WIN OOD NAN E WIN O OD NAMN EWN 09 NO UNE AP CO OONOU EW" OO OOO 


SsooooooooSSeSSeSSS 
PRIPIPIPIPIPIPIPIPIPININIMIMINIMIPIF INI III a st st st st st tt tk tk kk kk kk ht th a 


t EQUATED SYMBOLS: 


S32 


rosin 


maBRGl M6 SERVICES vit Low wsouBrh/use TgSEE~19RS BF:0:0] YARZWME Maerz. an. P88" cy 


00000010 


Soooooo 


ooo 


oo 


: 


AYE AN" OOONOUS Ww 


CTL,0,<- :DEFINE CONTROL BITS IN R3 
<MEMLOOP, ,MASK>, = [LOOP IN MEMORY WRITE LOOP 
<TSTLOOP, .MASK>,= SREDO ENTIRE TEST FROM TOP 
<PIOMSG, ,MASK>,= ‘PUT PROCESS ID IN EACH TYPEOUT 
<RNGCHK, .MASK>= TON IF CHECKING RETURN RA 

> 

PRTSC_NONE=184 


: OWN STORAGE: 


MMAGNSF WSL 
v04 


000 
00000008 
10 
wa | 
80000020 901 
00000003 
00000028 
0000002C 
smmnes He 
0000003C¢ 
00000048 
4 
9 


Q00000E0 
000000F E*000000A0' 


000000F A*00000004' 


DOOOOCOCOOOSOOCOoOO: 
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TRINGS P=19 


»SBTTL DATA STORAGE AND MESSAGE STRINGS 
-PSECT DATAO,PAGE ,WRT ,NOEXE 


/sBLKL 2 


ES WIT 
MESSAG 


2 
4 TLR TSTLOGPICTLEM_PIONSS 


‘ 1 ;LAST BYTE ADDRESS IN PO SPACE 
PID: -BLKL 1 ;PROCESS ID 
MAXPASSCNT: 

. 3 ;NUMBER OF PASSES TO RUN 
PASSCNT: 

. 1 ;PASS COUNTER 
WRKSETLIM: 

8 1 ;RETURNED NEW WORKING SET LIMIT 
WRKSETDEF : 

8B 6 ;DEFAULT, MAX, MIN WORKING SET LIMIT 

WRKSE TMAX=WRKSETDEF +8 

WRKSE TMIN=WRKSETDEF +16 


WRKSETMAXADD : 


-BL 
PREVPROT: 
FAB: SFAB 

AB $ 


3 WRKSE TMAX-WRKSE TDEF 
FAC=PUT, FNA=OUTNAMADR, FNS=OUTNAMSIZ ;FAB FOR OUTPUT 


WN OC OONA UE WN OOO NOUS VO 008 


RAB: RAB F AB=F AB ;RECORD ACCESS BLOCK FOR OUTPUT 
4 MSGLEN: .BLKL 1 RETURN LENGTH FROM FA 
5 Slentes: LONG MSGBUFSIZ,MSGBUF MESSAGE BUFFER DESCRIPTOR 
? MSGBUF -PIDMSG,PIDMSG 


9 } eee DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 
MSGBUF ID: 
CRLF: .BYTE  *015,*012 
“ASCII $PROCESS $ 
PIDMSG: .ASCI! $  $ 


MSGBUF: .BLKB 160 
u MSGBUF S12=.-MSGBUF 
4 : seeet DO NOT SEPARATE OR REORDER THE PRECEEDING LINES 
80 * 


-—o 


;MESSAGE BUFFER USED BY FAO 
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PAGCNT = !SL, LIMIT WAS '!UW, SHOULD BE !UW!/$ 
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PAGCNT = !UL, REGION = P!UB SPACE, $ 
PAGCNT = !SL, REGION = P!UB SPACE, $ 


$!/ADJWSL ERROR - PC = !XL, STATUS WAS !XL, SHOULD BE !XL$ 


SDEFAULT !UL/!UL, MAX !UL/!UL, MIN !UL/!UL!/$ 


eASCII] $!/EXPREG ERROR - PC = !XL, STATUS WAS !XL, SHOULD BE !XL$ 
$!/ NO-READ ERROR = LOCATION = !XL !/$ 
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21 28 3D 20 52 44 41 +3 49 98 2F f 
45 3 20 2c 4C 58 ¢ 3 g8 0 4C ss 
20 20 4C 58 21 20 3D 20 52 44 41 54 
2F 21 4C 58 $} 20 

0000004F 
ie SEPEE EEE 
SHEPGHARE GS 
F 21 4C 55 21 20 § 1 
00000039 

2 


o*vonmnsen 
EINE LSM 
wN—P) =" OTTO — 


Ss 


- TEST MMG 
DATA STORAG 


: 


>> OOOCDOONY 


} EF pA rd 


rapt ttt} 


Rw WMO 
MIND "DOOOO 


WWW 


ND MWA PMO YS SP SF SP FOOO WNW  *W~w 


OD et tet ek tek al tet ee tel et eked ed ddd a-ak I he ee tak ak ak ee at ak ke ke 


OOFRWMHGOOOOODW DS OWWOWOWO VO OUI & WWIWwnn 


vireo mus 


penvsces 
AND ME 


i 
: 
: 
348 


349 


350 


10 
WITH LOW WSQUOTA/WSL 16-SEP-1984 02:0/: AX/VMS Macro V04-00 
MESSAGE STRINGS 873Fb=15 4 87:86:98 EMMGTST. SRCIMMCNSFUSL MAR: 1 
NOREADERRS1Z=.-NOREADERRADR 
WRITERRADR: 
eASCII $!/ WRITE ERROR = LOCATION = !XL !/$ 


WRITERRSIZ=.-WRITERRADR 


NOWRI TERRADR: 


»ASCII $!/ NO-WRITE ERROR = LOCATION = !XL !/$ 


NOWRITERRS1Z=.-NOWRITERRADR 


MEMLOOPCTLADR: 
-ASCII $!/MEMORY LOOP ERRORS 
eASCII $!/ FILE BLOCK WAS !XL, SHOULD BE !XL$ 
eASCII $!/ MEMORY ADR WAS !XL, SHOULD BE !XL$ 
eASCII $!/ PROCESS ID WAS !XL, SHOULD BE !XL$ 


MEMLOOPCTLSIZ=.-MEMLOOPCTLADR 


RANGERRADR: 


eASCII $!/RETURN RANGE ERROR = LOCATION = !XL$ 


eASCII $!/ INADR = !XL = !XL, RETADR = !XL = !XL!/$ 


RANGERRSIZ=.-RANGERRADR 


IDMSGADR: 


~ASCII $!/MEMORY MANAGEMENT SERVICES TEST #8 (NSFWSL), PASS !UL!/$ 


IDMSGS1Z=.-1DMSGADR 


RUN1_MSGADR: 
ASCII 


$!/ eeeee = =TEST WILL NOW BE RUN USING NORMAL VA SPACE 


ASCII $!/ $ 
RUNT_MSGSIZ=.-RUN1_MSGADR 


Page 


eererg 


9 
(4) 


VOe-800 SaFRSEOMGcEERUECRESQADY PL MEQUSTASL 1gSEE19RG gRHOTHEL YARZAME Maer R ¥OA=O aug 1 POOP 1, 


5 PIDCTLADR: 
8 ASC $!ULS 
3 P1OC Z=.-PIDCTLADR 


0000000A' 00000063 
0000006D ' 00000063 
00000196*00000072 
00000208 ' 00000072 
00000000' 00000063 
00000133'00000063 
0000027A* 00000068 
000002E2*0000004E 
00000330'00000021 
00000351'00000024 
00000375 "00000022 
00000397'00000025 
0000038C '0000007F 
00000438 '0000004F 
0000048A' 00000039 
000004C3'00000042 
00000505 *00000003 


“ 
>a 
a 

mun 


COOCOCOCOOCOOCOOCO OOOO OCOOOOOCOOOCOOOOSBOOOOOOOOoOO (Ut 


Th Ah Ab db db dh dh db db dh db ah ah dh Ah dh bh th hh th ah ah bh bh dh bh dh bh eh eal al 


oO 
SWOWDOCOCMDHOOCOCMOMDOSCOCHOMDOOCMOMOOCADDOOCMOMODOMMdOOOCOCIOCDOD00000D Sz 


OCOD C000 I IN IO DO DI WII SS | —QOOOOOCOO 


mm 
o 


ou 
= taal 
mon 
ow 


~ ALIGN 
CRETVAERR: 
DELTVAERR: 
CNTREGERR: 
EXPREGERR: 
LKWSETERR: 
LONG 
ULWSETERR: 
. LONG 
ADJWSLERR: 
WSETLMCTL: 
READERR: 
NOREADERR: 
WRITERR: | 
NOWRITERR: 


.LON 
MEMLOOPCTL: 


: 


LONG 


[DOC OCOCOOC COC OC OOOO OO OVO OWDWWWWOOOOMOO NII VNNN 3D 


AO OD NAME WIN $$ OS OD NAM EWN OOD NAME WIN" OOONOUSwN Z< 


PEER EEE EE WANA NNN AANA AAA AAA AA AAA AM AM 


; STRING DESCRIPTORS 


LONG 


CRETVAERRSIZ,CRETVAERRADR 
DELTVAERRSIZ,DELTVAERRADR 
CNTREGERRSIZ,CNTREGERRADR 
EXPREGERRSIZ,EXPREGERRADR 
LKWSETERRSIZ,LKWSETERRADR 
ULWSETERRSIZ,ULWSETERRADR 
ADJWSLERRSIZ,ADJWSLERRADR 
WSETLMCTLSIZ,WSETLMCTLADR 
READERRSIZ,READERRADR 

NOREADERRSIZ ,NOREADERRADR 
WRITERRSIZ,WRITERRADR 

NOWRITERRSIZ,NOWRITERRADR 


MEMLOOPCTLSIZ,MEMLOOPCTLADR 


RANGERRS1Z,RANGERRADR 
IDMSGS1Z, IDMSGADR 
RUN1_MSGS1Z,RUN1_MSGADR 
PIDCTLS1Z,PIDCTLADR 


WSL T§TSEP=1986 O1:58:18 LANGYs GNSFUSL.MAR;1 °° 


8 11 : 
VICES WITH LOW WSQUOTA/WSL 16-SEP-1984 AX/VM ° P 1 MAG 
. . g- Hi 1984 84: gf 5 MMGTST.S Sac aRM OPUS. maR:1 tg Tab 


-SBTTL INITIALIZATION 


=MARBAAARAARAAAAAAAASLASALAAAAAAA SALA RAAR REAR RAR AAAS AAAS ARES AAAS ARES SASL ARDEA SS 


[PROGRAM DESCRIPTION: 


THIS PROGRAM TESTS THE FOLLOWING SYSTEM SERVICES: 
SCRETVA, SEXPREG 


MMGNSF WSL - TES 
voL~000 INIT] 


~s 
>a 
_ 

on 


THE PROGRAM DOES EACH OF THESE SYSTEM SERVICES WHEN 
THE WSQUOTA/WSLIMIT IS SET TO A MINIMUM IN ORDER TO FORCE KNOWN 
ERROR Oe bee HREE PASSES ARE MADE THROUGH THE TEST LOOP IN 
ORDER TO ENSURE PATH REPEATABILITY. ONLY REGULAR VA SPACE IS 


USED IN THIS PROGRAM. 


REFER TO MASDS:CMMGTST.COMJMMGTST.RAP FOR FURTHER INFORMATION 
REGARDING JUST HOW COMPLETELY THE ABOVE MENTIONED SYSTEM SERVICES 
ARE TESTED BY THIS PROGRAM. 

*PRIVILEGES: 


THIS PROGRAM NEEDS NO SPECIAL PRIVILEGES TO EXECUTE. 


IARRAARASALALALALLAAAALALALARAAALAAASELALAL ALAS A SAAR ERA AR AREA RAR AA SAS ARDS SS 


; START HERE 


COOOOOOCOOOCOCCGOOOCOCOCOCOCOOCOCOCOOOOOOOOOCOOOOOOOCOoOOo »- 


Pe al © al © al * al al Mah Ah Ab db Abed Ab db bb bh dh dh dh ah dh dh ch dd hh ch ehh ed edd dlc dhdh dlch  chch ct edd dh dhch dlch “slch “cc eae “el 
OOCCOCOMMMMNIOIOADDYS SP FP OOWODOOOWOOOOOOOWOOOOOOOOOOOOO —- 


MM OL VNO PUNO NDS PS SUMO OOO LOM NTH DOFTVNOOCCOCOOCOCOOOCOOOOOOOOOOoOooOoO 
ANF AN" OOONAUVE WN O ODN UNE WIN 9 OD NO UNE WH @ OOWONOAUI EW 


eeee 


0000 START: WORD 0 sENTRY 3 
$OPEN W*FAB [OPEN THE FILE “'SOUTPUT 
06 50 £9 BLBC RO, 108 ‘BRANCH IF ERROR 
SCONNECT W*RAB [CONNECT THE RECORD ACCESS BLOCK 
09 50 €8 BLBS RO, 208 
10$: SEXIT_SR ;EXIT WITH STATUS IN RO 
00000024"EF 01 D0 20$:  MOvL ~ #1,PASSCK1 : INITIALIZE THE PASS COUNT 
SRESUME 5, PID. [SET UP PROCESS ID 
50 O000001C'EF  3¢ 4 MOVZWL 
4 SFAO_S pipet, MSGLEN,PIDMSGD,RO sINIT THE PROCESS ID STRING 
4 : INFORM OPERATOR THAT TESTS WILL BE RUN USING ONLY NORMAL VA SPACE 
4 SFAO_S RUN1_MSG, jMSGLEN, MSGBUF D : INFORM OPR NORMAL VA USED FOR TEST 
0283 30 4 BSBW” TYPER 
0010'CF 04 CA 4 coead BICL #CTLSM_ PIDMSG. W*CTLFLG :STOP PROCESS ID FROM PRINTING 
4 RANGECHK ON 
0010'CF 08 C8 B #CTLSM_RNGCHK,W*CTLFLG 
4 SFAO_S 1DASG MSGLEN,MSGBUFD ,PASSCNT 
0289 30 06 4 BSBW YPEMSGBUF 
6 4 EXPREG } 
53 1 3¢ MOVZWL $*#SS$_NORMAL,R3 
54 D0 06 MOVL  #1,R 
51 O008°CF DE MOVAL W*RETRANGE,R1 
35 4 06 CLRL 
00084 0 06 BSBW = EXPREGSUBR 
52.00 08°C D 06 457 MOVQ  W*RETRANGE 
QO00°CF 52 7D 644 48 mova = -W* INRANG | 
O14'CF 52 p00 06 45 MOVL *W*SAVEND 
6 460 | 
6 461 | 
} 


T MMG SERVIC 


C11 
- TES ES WITH LOW WSQUOTA/WSL 16-SEP-1984 $:97:0) AX/VMS Macro V04-0 
FORCE ERRORS IN CRE 


0 
TVA “SEP=1984 01:58:18 CMMGTST.SRCIMMGNSFWSL.MAR; 1 


Sue 463 .SBTTL FORCE ERRORS IN CRETVA 
SAE 465 : FORCE ERRORS FROM CRETVA 
64E 46 CRETVA W*SAVEND,#1830-1,#SS$_INSFWSL ;EXCEED WORKING SET LIMIT 
QOOOO'CR OO14'CF D 64F MOVL W*SAVEND.W* INRANGE 
0004'CF 3FFFFFFF 8F p 65 MOVL § #1830-1,W* INRANGE +4 
11¢ BF 3C 065 MOVZWL #SS$_INSFWSL,R3 
OOO'CF DE 066 MOVAL  W*INRAN 
0 ‘tf i 66 VAL  W*RETRANGE,R1 
058 66 BSBW = CRETVAS 
OO000'CF O008'CF 7D : 468 MOVQ  W*RETRANGE, W* INRANGE 
77 46 DELTVA SDELETE WHAT WE CREATED 
53 01 «3¢.«(0677 MOVZWL S$*#SS$_NORMAL,R3 
50 06 ‘CF DE 067A MOVAL W*INRANGE,RO 
1 0 ‘tf be 67F MOVAL W*RETRANGE,R1 
058 684 pre BSBW  DELTVASUBR 


$3 


roaage 


54 


0000° CF 


OC 0024'°CF 


O11C 8F 


5 
TFFFFF 8F 
7 9 


ed 


aa 


FF SF 


: FOR 


D1 
ITH LOW WSQUOTA/WSL 16-SEP=1984 02:07:01 YAX/VMS Macro _V04-00 
rSEP-1986 01:58:18 LMMGYS? .SRCIAMGNSF USL .MAR: 1 


«SBTTL FORCE ERROR IN EXPREG 
CE ERRORS FROM EXPREG 
EXPREG #1821-1,#0 STATUS=#SSS INSFWSL ;EXCEED WORKING SET LIMIT 
MOVZWL ‘#SS$_INSFWSL,R3 


MOVL #laeT-1, 
MOVAL W*RETRANGE ,R1 
LRL sR’ 


BSBW EXPREGSUBR 
MOVQ W*RETRANGE,W* INRANGE 
DELTVA :DELETE WHAT WE CREATED 
MOVZWL S$*#SS$_NORMAL,R3 
MOVAL W*“INRANGE,R 
MOVAL W*RETRANGE,R1 
BSBW  DELTVASUBR 


END OF LOOP 


AOBLEQ W*MAXPASSCNT,W*PASSCNT,160$ 
MOVL #1,RO 

SEXIT_S RO 

BRW RSTART 


— nn 


’ 
1 
MMGNSF WSL - TEST MMG SERVICES WITH LOW WSQUBTA/USL 16-SEP-1984 02:07: AX/VMS Macro V04-00 P 15 | 
v04 SUBROUTINES FB CALL THE SERVICES gr ser n18 4 EBL EMMGT ST. SREIMMONSFUSL MARS 1 ww ihe 
cB is .SBTTL SUBROUTINES TO CALL THE SERVICES | 
cB 4 0 ; INPUT 
CB a3 : RO = INADR 
6(B 493: RI = RETADR 
th rh s R35 = DESIRED STATUS | 
6B 496 ; OUTPUT: 
6B 498 ; R2 PRESERVED 
6CB 0 CRETVASUBR: 
6B 1 SCRETVA_S (RO),(R1) 
51 FE2C cr DE 06D 3 OVAL “W*CRETVAERR,R1 ZERROR CONTROL STRING 
A 11 DD 08 BRB CHECK 
pF 205 INPUT 
O6DF 209 : RO = INAD 
O6DF 508 : R1 = RETADR 
Beer 4 5 R3 = DESIRED STATUS 
O6pr 21] > OUTPUT: 
O6DF 318 ; R2 PRESERVED 
O6DF 515 BELTVASUBR: 
O6DF 216 SDELTVA_S (RO),(R1) 
51 FE20 CF DE O6EC 51 OVAL “W*DELTVAERR,R1 ;ERROR CONTROL STRING 
26 «11 O6F 218 BRB CHECK1 
Der 0 + INPUT: 
Der 5 é ; RO = INADR 
06F3 «523: R1 = RETADR 
O6r 5 4 ; R3 = DESIRED STATUS 
O6F ; 6 ; OUTPUT: 
O6F 3 8 ; R2 PRESERVED 
6F 0 LKWSETSUBR: 
6F 1 SLKWSET_S (RO), (R1) 
51 FE26 CF DE 070 : MOVAL “W*LKWSETERR,R1 ZERROR CONTROL STRING 
12 11 203 3 CHEC <1 
u u 5 : INPUT: 
707 $ : RO = INADR 
707 : : R1 = RETADR 
? , 33 : R3 = DESIRED STATUS 
? 2 4) : OUTPUT: 
707 rk : R2 PRESERVED 
707 44; 


MG 
v04 


= 


- TE C r 
v04 SUBROU ALL THE SERVICES MMGTST.SRCJMMGNSFWSL.MAR; 1 (9) 
U 


i | 
MMGNSF WSL ST 65 “i ES WITH LOW WSQUOTA/WSL 1 mie tt 9g 02:0) AX/VMS Macro V04-00 Page 18 | 
sete 

ULWSET_S (RO),(R1) 


S51 FEIS CF ODE aie MOVAL “W*ULWSETERR,R1 ZERROR CONTROL STRING 
53 50 D4 CMPL RO R3 sSTATUS AS DESIRED 
48 BEQL 108 ‘BRANCH IF YES 
530244 i 8 CHP #SS$_VASFULL,R3 TIF EXPECTING VIRTUAL ADDRESS SPACE 
50. («1C af CMPW #SS$_EXQUOTA,RO : THEN EXCEEDS QUOTA MAY ALSO BE RETU 
3 13 BEQL 108 
4 oD 5$ PUSHL R4 
54 06 AE 00 MOVL 4(SP) Ra ;ADDRESS OF ERROR 
SFAO_S (R1),MSGLEN,MSGBUFD,R4,RO,R3,- 
INRANGE , INRANGE +4 , RE TRANGE , RE TRANGE +4 
10 BA POPR #*M<R4> 
0150 0 BSBW TYPEMSGBUF 
ae RSB 
007F 31 BRw RANGE CHK :GO CHECK THE RETURN RANGE 


; INPUT: 

RETADR 

DESIRED STATUS 
PAGCNT 

REGION 


DzmDwDwD 
UMFw— 
nnn 


R2 PRESERVED 
NTREGSUBR : 


: OUTPUT: 
¢ 


1D OD C9 C9 OD OD CD GD OS Os OF OF OS OS OO AA AAA AAA AOA WANN "OO 


POPPOPINPIMINIPINININININMOD OMA OMAAAAAAAAAM COBDNWOON FOUWMOOOCLAIN Z 


a fa Bi in Bin SDB Bie Bin Bhe Sen Si Be Bee en Dn BB Se BD dB BB ee ee ee ee ee 


CGOOOOOCOCOOCOOSCOOCOSOSOOSOOOOCOCOOCOOOOOOSGO COCO OOOCCOOCOOOOCOCOOOOOOOOOCOOO 


SCNTREG_S R4,(R1),,.R5 
51 FDO CF ODE MOVAL “W°CNTREGERR,R1 sERROR CONTROL STRING 
14 11 BRB CHECK2 
: INPUT: 
F R1 = RETADR 
: R3 = DESIRED STATUS 
; R4 = PAGCNT 
; RS = REGION 
> OUTPUT: 
: R2 PRESERVED 
EXPREGSUBR: 
9 SEXPREG_S R4,(R1),,R5 
51 FD8B CF DE 44 3 ete MOVAL “W*EXPREGERR,R1 sERROR CONTROL STRING 
53 50 01 196 9 ” CMPL 0 R3 :STATUS AS DESIRED? 
9 13 07 9 BEQL 108 ‘BRANCH IF YES 
4 Dp 798 98 PUSHL R6 
56 04 AE DO 0790 59 MOVL  4(SP),R6 :ADDRESS OF ERROR 
7A1 600 SFAO_S (R1),MSGLEN,MSGBUFD,R6,RO,R3,R4,R5,- 
7A1 601 RE TRANGE , RE TRANGE +4 


ee c— 


———— 


6 11 
MMGNSF WSL = TEST MMG SERVICES WITH LOW WSQUOTA/WSL 16-SEP-1984 02:07:01 VAX/VMS Macro v04-00 Page 17 | 
yen 000 SUBROUTINES B CALL THE SERVICES ety Pi RL ERMGTST. SRE JAMONSFUSL MAR: 1 ve 
0049 8F BA O7C : POPR #*M<R6> 
OES 2 ; BsBM TYPEMSGBUF 
0000'CF 0008" f D 704 5 10$ ROVL We RETRANGE , W* INRANGE ;MAKE INPUT RANGE LOOK LIKE CRETVA/D 
54 54S 8 70D § ASHL #9,R4,R4 | 
0004'cF O000'CF 54 C1 O7E1 6 8 ADDL3 R4.W*{NRANGE,W* INRANGE +4 
1 7E9 609 RB RANGECHK yAND CHECK THE RETURN RANGE 
7EB 611 RANGECHK: 
73 0010'CF 98 £1 O7EB 616 BBC #CTLSY RNGCHK ,W*CTLFLG, 408 ;BRANCH IF RANGE CHECK IS DISABLED 
ong 0 59 7F1 61 BLBC ~—_« RO, 460 SIF ERROR IN SERVICE, SKIP THE RANGE 
50 9 ‘tf D O7F4 614 MOVG  W*{NRANGE,RO ‘RO = STARVA, R1 = ENDVA 
1 9 D1 O7F9 8615 CMPL ~— RO, R1 [WHICH DIRECTION? 
1 1A O7FC 616 BGTRU 108 ‘BRANCH IF BACKWARDS 
04 1F 4a 61 BLSSU  5$ SBRANCH IF FORWARDS 
0c 50 1& €0 abe 618 BBS #30,R0,10$ [FOR EQUAL, PO SPACE FORWARDS, P1 BA 
804 6 0 t REQUESTED RANGE IS FORWARDS 
50 OFF BF AA 0804 6 : S$: BICW #*X1FF,RO zFROM BYTE 0 OF STARTVA 
51 OFF BF AB 809 6 BISW #*X1FF.=R1 ‘THROUGH LAST BYTE OF ENDVA 
OA 11 OBOE ; 4 BRB 20$ ; 
0810 6 : : GOING BACKWARDS IN VIRTUAL ADDRESS SPACE 
50 OFF BF AB 0819 628 10$: BISW #*X1FF,RO ;LAST BYTE OF STARTVA 
51 OFF BF AA 0815 629 BICW #*X1FF-R1 : THROUGH FIRST BYTE OF ENDVA 
0008'CF 50 D1 O81A 630 208:  CMPL RO,W*RETRANGE [1S THIS WHAT WAS RETURNED? 
? if O81F 631 BNEQ 306 ‘BRANCH IF NOT, ERROR 
oooc'cr 51 »D 08 ee : CMPL = R1,W*RETRANGE+4 [THIS ONE OK 190? 
13 08 6 6 Bea. 46-4 OF [BRANCH IF YES, RANGE OK 
DD 08 634 30$:  PUSHL R [SAVE REGISTER 
53 046 AE DO 082A 635 MOVL  4(SP),R3 'TO USE FOR ERROR PC 
B2E 6 6 SFAO_S <W*RANGERR>,MSGLEN,MSGBUFD,R3,- :FORMAT THE ERROR MESSAGE 
B2E 6 INRANGE , INRANGE*+4 ,RETRANGE RE TRANGE +4 
08 85F 638 POPR #*M<R3> sRESTORE SAVE REGISTER 
0054 0 0861 639 BSBW §_ TYPEMSGBUF SOUTPUT THE ERROR MESSAGE 
05 0864 640 408: RSB SAND RETURN 
0865 641; 
abe 64g 3 INPUT: 
65 644: R3 = DESIRED STATUS 
6 645 ; R4 = PAGCNT 
6 646 ; RS = DESIRED LIMIT 
63 64 : R6 = ADDRESS TO RETURN NEW WORKING SET LIMIT 
é es > OUTPUT: 
63 e31 : R2 PRESERVED | 
$3 836 ADJWSLSUBR: 
$ 654 SADJWSL_S R4, (R6) 
0 655 IFNOWRT #4, (R6), 108 :SKIP WORKING SET LIMIT CHECK 
7% 6 4 [IF NEW LIMIT WAS NOT RETURNED 
55 b§ 26 6 TSTL RS sALSO SKIP THE CHECK | 
05 78 «658 BEQL 10% [IF ZERO WAS SPECIFIED | 
| 


H_11 


MMGNSF WSL - TEST MMG SERVICES WITH LOW WSQUOTA/WSL 16-SEP-1984 02:07:01 VAX/VMS Macro v04-00 Page 18. 
yon000 SUBROUTINES TO CALL THE SERVICES ett Pi PEL UAMGTST. SREIMMGNSFUSL «MAR: 1 . 8) 
66 5S B81 OB7A 659 CMPW sR, (RO) ZOTHERWISE CHECK DESIRED WORKING 
7D ‘SET LIMIT AGAINST THAT RETURNED 
05 12 2p aos BNEQ 208 SBRANCH IF ERROR 
53 59 d 7F “ CMPL R0 R3 ZSTATUS AS DESIRED? 
é 64 ae BEQL 308 ‘BRANCH IF YES 
57 oD 4 666 "- PUSHL sR? 
57 O46 AE D 6 MOVL  4(SP),R7 “ADDRESS OF ERROR 
A ses SFAO_S ADJWSLERR,MSGLEN,MSGBUFD,R7,RO,R3,- 
7 BE 1 
0004 88 4 er ma 
05 $87 $78 "  RSB 


| 
| 
R4,WRKSETLIM,R 
POPL = -R7 
BSBW © TYPEMSGBUF 


MMGNSF WSL - TEST MMG SERVICES WITH LOW usubTAyusL 16-SEP-19 AX/VMS Macro vo4 -00 Page 19 
rat MISCELLANEOUS SUBROUTINES g- iets 9 8¢ Qf 5 MMGTST.S RCIMM NSFWSL.MAR; 1 9 10) 
8 ee .SBTTL MISCELLANEOUS SUBROUTINES 
58 : TYPE A MESSAGE 
A: ; MSGBUF IS THE ADDRESS OF THE BEGINNING OF THE STRING 
B 4 ; MSGLEN CONTAINS THE SIZE (IN BYTES) OF THE STRING 
1 TYPEMSGBUF : 
50 DC'CF D0 & : MOVL U°MSGLEN RO :SIZE TO RO 
1 Fe'CE D a MOVAL WeASGBUF R1 SADDRESS TO R1 
08 0010'CF 2 é6€ 684 BBC {DMSG,W*CTLFLG, 5$ BRAN cH IF NO PROCESS ID REQUIRED 
1 OO CE D 685 MOVAL USMECOOF ID. R1 SADDRESS INCLUDING PI 
e’ ¢ 6 $ - ADDL § $*#<MSGBUF -MSGBUF ID>,RO SINCLUDE EXTRA BYTES IN COUNT 
OOCO'CF 51 00 6 8 ; MOVL  R1,W*RAB+RABSL_RBF :SET BUFFER ADDRESS 
OOBA' CF 0 MOVW RO, W*“RAB+RABSW_RSZ ‘AND 
0 $PUT wikaR ‘OUTPUT THE MESSAGE 
01 50 £9 31 BLBC 0,208 
638 0$: SEXIT_S RO ZEXIT WOTH ERROR STATUS 
; INPUTS: 


O(SP) = ADDRESS OF ERROR 
R1 = ADDRESS OF FORMAT CONTROL STRING 


IQ HH HMM MOOT TI MOO 


PII E =) 09 EPPO NIPUIPINININ OOUIS IOOVU ONG 
AAO 
ooono 
wi 
Pe Se Se Be Se Ge Oe Oe ee A) 


08 
8 
08 
08 
OB 00 : OUTPUTS: 
08 701 : 
08 7 g R2 PRESERVED 
8 7 
08 704 PROBERR: 
55 DD 705 PUSHL R5 
55 04 AE 00 08 206 MOVL  4(SP),R5 
uF 70 $FAO_S (R1),MSGLEN,MSGBUFD,RS 
20 BA 6 708 POPR™ #*M<R5> 
FFAG 30 09 709 BSBW =~ TYPEMSGBUF 
05 09 710 RSB 
09 711 
9 ze 
9 7135 ; 
HH 
0915 216 : INRANGE CONTAINS INFINITE RANGE OF ADDRESSES PREVIOUSLY CREATED 
0915 717: RETRANGE CONTAINS A RANGE OF ADDR 
31 218 : R10 CONTAINS ADDRESS TO STORE THE # OF PAGES SPANNED BY RETRANGE 
31 , ; > OUTPUT: 
915 7 gi : R10 UPDATED TO POINT AT NEXT LONG WORD 
915 7 
91 75% MAXPAGLOCK 
915 725 CKWSET STATUS=#SS$_LKWSETFUL :LOCK AS MANY AS ALLOWED 
53 0194 BF 3c «(0915 MOVZWL #SSS_LKWSETFUL RS 
0 Q000'CF DE O91A VAL WINRAN 
1 8'CF p 91F MOVAL W*RETRANGE,R1 
FDCC 924 BSBW ss LKWSET 
50 000c'CF 0008" CF C3 0907 726 SUBL3 W*RETRANGE,W*RETRANGE+4 ,RO SNUMBER OF BYTES IN RANGE 
4 13 O92F 7 BEQL 208 ‘BRANCH IF NONE LOCKED 


J11 
MMGNSF WSL = TEST MMG SERVICES WITH LOW WSQUOTA/WSL 1 mi iets 9 bg: g?: 1 at Bh Macro V04-00 Page ¢ 
MISCELLANEOUS SUBROUTINES ~SEP-1984 8:18 T. SRCJMMGNSFWSL.MAR; 1 ( 
50 50 Ff78F 7 931 7 ASHL #-9,RO,R NUMBER OF PAGES -1 
50 C ; 6 188 ADDL Hie. iR0s STORE NUMBER OF PAGES 
OO10'CF O08 CA O93A CL #CTLSM_RNGCHK,W*CTLFLG 
93F 731 ULWSET as songs, Hes ANGE UNLOCK THE ONES THAT WERE LOCKED 
53 09) «=63C) O09 3F OVZWL S“*#SS$_WASSET,R3 
50 O008'CF ODE 4) HOVAL W*RETRANGE,RO- 
51 0008'CF oF 94 MOVAL URE TRANGE R1 
DB8 94C BSBW LWSETSUBR 
94F 732 RANGECHK ON 
OO10'CF O08 c¢ 94F BISL #CTLSM_RNGCHK ,W*CTLFLG 
0 baad 733 RSB 
BA D4 0955 734 208: CLRL (R10)+ NO PAGES LOCKED 
05 0957 735 RSB 
R28 7 $ 
95 7 
958 738 ~END START 


MMGNSF WSL 
Symbol table 


ADJWSLERR 
ADJWSLERRADR 
ADJWSLERRSIZ 
ADJWSLSUBR 


CH 
CNTREGERR 


SG 
CTL$V_RNGCHK 


CTL$V~TSTLOOP 
CTLFLG 


NWWOOOMOOVU oO 
POlon"—OO@® 
DD DDD DZAADD BD WD 


OOoeoounNouss 


ODO VOCOOSNO—O 


FR LOMO OWMDNNGS MWS OO“ WNVONG FS “ODWP DOME WHA Of Mood 
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“SEP=1984 01: 
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MSGBUFSIZ 
MSGLEN 
NOREADERR 


NOREADERRADR 
NOREADERRSIZ 
NOWRITERR 


RANGERR 
RANGERRADR 
RANGERRSIZ 
READERR 
READERRADR 
READERRS1IZ 
RE TRANGE 
RSTART 
RUN1_MSG 
RUN1 “MSGADR 
RUN1~MSGS1Z 
SAVER 
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MMGNSF WSL = TEST MMG SERVICES WITH LOW WSQUOTA/WSL 1 4 AX/VMS Macro V04-00 Page 
Symbol table g7S65 =1382 iE Fi % MMGTST.S RCIMM MMGNSF WSL .MAR; 1 . (38) 
Sss “honman = 436 
= 
SS$_VASFULL = 4 
SS$-WASSET S 9 
START OR 
SYSSADJWSL eeeerene GX 
SYSSCNTREG eeeeeeee GX 
SYSSCONNECT eeereeee GX 
SYSSCRETVA eeeeeene GX 
SYSSDELTVA aeeeeeee GX 
SYSSEXIT eeeeeeee GX 
SYSSEXPREG eeeneeee GX 
SYSSFAO eekekeee 
SYSSLKWSET aeeeeene GX 
SYSSOPEN eeenenee GX 
SYSSPUT keeneenee 6X 
SYSSRESUME eeeeeeee GX 0 
SYSSULWSET eeeteeee GX 83 
TYPEMSGBUF 0000 kK 3 
ULWSETERR 0000 R 03 
ULWSETERRADR 4b R 03 
ULWSETERRS1Z S 44 4 
ULWSETS 00000707 R 03 
WRITERR 4 4 3 R 03 
WRITERRADR 0 st £4 R 03 
WRITERRSIZ = 00000022 
WRKSETDEF 000000 £ R Og 
WRKSETLIM 44464 R 0 
WRK SE TMAX = 00 4 4 R 02 
WRKSE TMAXADD 0000044 R 8S 
WRKSETMIN = 4 Fe R 0 
WSETLMCTL 00000540 R 03 
WSETLMCTLADR 4 9484 R 03 
WSETLMCTLSIZ = 0000004E 
poeses seen eseoemas > 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- AB e 00000000 0.) 9 ( 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ aes ee ( 0.) 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
DATAO a ( 414,) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC PAGE 
CODE 0000095 ( 2392.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
Gueneueeonerceoeesenseses$ 
: ; Performance indicators ! 
Phase Page faults CPU Time waters Time 
Initialization : E 
zounene processing 33 3 
Symbol table sort : i : (e 
Pass 2 151 2. 
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mens USL = TEST MMG SERVICES WITH LOW WSQUOTA/WSL 16-SEP-1984 oe: gr: :01 VAX/VMS Macro v04-00 Page 33 
VAX-11 Macro Run Statistics -SEP-1984 8:18 CMMGTST.SRCIMMGNSFWSL.MAR; 1 (10) 


Symbol table output 1 :00: i¢ :00:01.5 
Psect synopsis output :00:00. :00:00.4 
Cross-reference output :00:00. 9 :00: “$9 
Assembler run totals 60 :00:16. 00:59. 


Ibe working ses Limit was 1500 pages. 

5554 bytes (129 pages) of virtual memory were used to buffer the intermediate code. 

* re were 50 pages of symbol table space allocated to hold 900 non-local ane 18 local symbols. 
source Lines were read in Pass 1, producing 21 object records in Pass 

54 pages of virtual memory were used to define 47 macros. 


ww erm mee we mee eee eee eee eee ee $ 


H Macro Library statistics H 


Macro Library name Macros defined 
Riiittint $ bev3- -OBJJL1B.MLB;1 1 
$255SDUA SYSLIBISTARLET.MLB;2 9 
TOTALS (all Libraries) 0 


1151 GETS were required to define 30 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MMGNSFWSL/OBJ=O0BJ$:MMGNSFWSL MSRC$:MMGNSFWSL/UPDATE=(ENH$:MMGNSFWSL) +EXECML$/LIB 
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